home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1470
/
3dcontro.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-06-08
|
6KB
|
210 lines
VERSION 4.00
Begin VB.Form frm3DControls
BorderStyle = 3 'Fixed Dialog
Caption = "VBMax 3D Effects Demo - Control Borders"
ClientHeight = 4485
ClientLeft = 615
ClientTop = 945
ClientWidth = 5220
Height = 4890
Icon = "3DControls.frx":0000
Left = 555
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4485
ScaleWidth = 5220
ShowInTaskbar = 0 'False
Top = 600
Width = 5340
Begin VB.HScrollBar Slider1
Height = 255
Left = 3240
TabIndex = 13
Top = 360
Width = 1575
End
Begin VB.Frame Frame1
Caption = "Size"
Height = 1815
Left = 180
TabIndex = 8
Top = 2520
Width = 1815
Begin VB.VScrollBar sliDepth
Height = 1065
Left = 1155
Max = 10
TabIndex = 3
Top = 630
Value = 1
Width = 255
End
Begin VB.VScrollBar sliWidth
Height = 1065
Left = 270
Max = 10
TabIndex = 1
Top = 630
Width = 255
End
Begin VB.Label lblWidth
AutoSize = -1 'True
Caption = "&Width:"
Height = 195
Left = 210
TabIndex = 0
Top = 300
Width = 465
End
Begin VB.Label lblDepth
AutoSize = -1 'True
Caption = "&Depth:"
Height = 195
Left = 1080
TabIndex = 2
Top = 300
Width = 480
End
End
Begin VB.VScrollBar VScroll1
Height = 1635
Left = 2280
TabIndex = 12
TabStop = 0 'False
Top = 360
Width = 255
End
Begin VB.Frame Frame2
Caption = "Style"
Height = 1815
Left = 2220
TabIndex = 9
Top = 2520
Width = 1635
Begin VB.OptionButton optRecessed
Caption = "R&ecessed"
Height = 375
Left = 240
TabIndex = 5
Top = 720
Width = 1215
End
Begin VB.OptionButton optRaised
Caption = "&Raised"
Height = 375
Left = 240
TabIndex = 4
Top = 360
Value = -1 'True
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "&No effects"
Height = 375
Left = 240
TabIndex = 6
Top = 1080
Width = 1215
End
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 495
Left = 3420
TabIndex = 11
TabStop = 0 'False
Text = "Text1"
Top = 1500
Width = 1215
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "Close"
Height = 360
Left = 4095
TabIndex = 7
Top = 3960
Width = 900
End
Begin VB.Line Line1
X1 = 60
X2 = 5100
Y1 = 2400
Y2 = 2400
End
Begin VB.Image Image1
Appearance = 0 'Flat
Height = 480
Left = 720
Picture = "3DControls.frx":000C
Top = 360
Width = 480
End
Begin VB.Label Label1
Caption = "Label1"
Height = 495
Left = 360
TabIndex = 10
Top = 1500
Width = 1215
End
Attribute VB_Name = "frm3DControls"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D As New C3D
Dim mo3DLines As New C3D
Private Sub Form_Load()
CenterForm Me
With mo3D
.Depth = sliDepth.Value
.Width = sliWidth.Value
.Style = gnRAISED
End With
Draw3D
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set mo3D = Nothing
Set mo3DLines = Nothing
Set frm3DControls = Nothing
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Option1_Click()
mo3D.Style = gnNORMAL
Draw3D
End Sub
Private Sub optRaised_Click()
mo3D.Style = gnRAISED
Draw3D
End Sub
Private Sub optRecessed_Click()
mo3D.Style = gnRECESSED
Draw3D
End Sub
Private Sub sliDepth_Change()
mo3D.Depth = sliDepth.Value
Draw3D
End Sub
Private Sub sliWidth_Change()
mo3D.Width = sliWidth.Value
Draw3D
End Sub
Private Sub Draw3D()
Cls
mo3DLines.Line3D Line1
With mo3D
If .Style <> gnNORMAL Then
.Border Image1
.Border Label1
.Border VScroll1
.Border Text1
.Border Slider1
End If
End With
End Sub